Virtual Top Model/Virtual Top Model - Disc 1.iso/modulos/mod-3.dxr/00001_Movie script.ls

Text File | 1997-04-01 | 4.3 KB | 179 lines

on startMovie
  global bVrPlay, NumCd
  set NumCd to 2
  set bVrPlay to 0
end

on stopMovie
  if objectp(objMovie) then
    objMovie(mdispose)
    closeXLib()
  end if
end

on snapshot v1, h1, v2, h2
  global sPathIni, sMensaje01
  if azReadDir(sPathIni & "snapshot\*.*") = [] then
    if not azCreatDir(sPathIni & "snapshot") then
      alert("Unable to create directory")
    end if
  end if
  openXLib(sPathIni & "Capture.dll")
  openXLib(sPathIni & "Fileio.dll")
  set oGrab to Capture(mnew, v1 + the stageTop, h1 + the stageLeft, v2 + the stageTop, h2 + the stageLeft)
  set bLleno to 0
  repeat with xx = 0 to 100
    if xx = 100 then
      set bLleno to 1
    end if
    set sOrden to string(xx)
    if xx < 10 then
      set sOrden to "0" & sOrden
    end if
    set sFitxer to sPathIni & "snapshot\vtm_fp" & sOrden & ".BMP"
    set oFitxer to fileio(mnew, "read", sFitxer)
    if objectp(oFitxer) then
      oFitxer(mdispose)
      next repeat
    end if
    if oFitxer = -43 then
      set xx to 101
    end if
  end repeat
  closeXLib(sPathIni & "Fileio.dll")
  if bLleno then
    alert(sMensaje01)
  else
    oGrab(mSave, sFitxer)
  end if
  oGrab(mdispose)
  closeXLib(sPathIni & "Capture.dll")
end

on coordenadas
  put "if the mouseV >= " & the locV of sprite 4 & " and the mouseH >= " & the locH of sprite 4 & " and the mouseV <= " & the locV of sprite 4 + the height of sprite 4 & " and the mouseH <= " & the locH of sprite 4 + the width of sprite 4 & " then"
end

on ayuda sMember
  global bAyuda, nIdioma
  if bAyuda then
    set the member of sprite 47 to member sMember of castLib ("mensajes" & nIdioma)
    set the visible of sprite 47 to 1
    updateStage()
  end if
end

on boton nSprite, sPrefijo, nMaxBolas, sMember
  global nContTiempo, bAyuda
  if nSprite > 24 then
    set nBola to 29
  else
    set nBola to 23
  end if
  repeat while rollOver(nSprite) and not (the mouseDown)
    if nContTiempo = 0 then
      set nContTiempo to the timer
    end if
    puppetSprite(nBola, 1)
    set sMiembro to sPrefijo & "1"
    set the member of sprite nBola to member sMiembro of castLib "elementos graficos"
    updateStage()
    if the timer > (nContTiempo + 80) then
      set nCont to 1
      set nFactor to 1
      repeat while rollOver(nSprite) and not (the mouseDown)
        set nCont to nCont + nFactor
        if (nCont > nMaxBolas) or (nCont <= 0) then
          if nSprite = 22 then
            if nCont > nMaxBolas then
              set nCont to nMaxBolas - 1
            else
              set nCont to 2
            end if
            set nFactor to nFactor * -1
          else
            set nCont to 1
          end if
        end if
        set sMiembro to sPrefijo & nCont
        set the member of sprite nBola to member sMiembro of castLib "elementos graficos"
        updateStage()
        startTimer()
        repeat while rollOver(nSprite) and (the timer < 7)
          nothing()
        end repeat
      end repeat
    end if
    puppetSprite(nBola, 0)
  end repeat
end

on roll
  repeat with xx = 10 to 28
    if rollOver(xx) then
      return xx
    end if
  end repeat
end

on rollboton
  global bVideoNormal, nContTiempo
  set nContTiempo to 0
  case roll() of
    10:
      ayuda("volumen")
    11:
      if bVideoNormal then
        ayuda("video reducido")
      else
        ayuda("video normal")
      end if
    12:
      ayuda("salida")
    13:
      ayuda("panic")
    14:
      ayuda("ayuda")
    15:
      ayuda("modulo 8")
      boton(15, "CD2 ", 16, "modulo 8")
    16:
      ayuda("modulo 7")
      boton(16, "CD2 ", 16, "modulo 7")
    17:
      ayuda("modulo 6")
      boton(17, "CD2 ", 16, "modulo 6")
    18:
      ayuda("modulo 5")
      boton(18, "CD2 ", 16, "modulo 5")
    19:
      ayuda("modulo 4")
      boton(19, "FOTO-", 8, "modulo 4")
    20:
      ayuda("modulo 3")
      boton(20, "Mov_UVR_1/", 9, "modulo 3")
    21:
      ayuda("modulo 2")
      boton(21, "PASEFOTOS-", 18, "modulo 2")
    22:
      ayuda("modulo 1")
      boton(22, "Strip ", 9, "modulo 1")
    24:
      ayuda("1.1")
    25:
      ayuda("VR4")
      boton(25, "UVR_4/", 9, "VR4")
    26:
      ayuda("VR3")
      boton(26, "UVR_3/", 9, "VR3")
    27:
      ayuda("VR2")
      boton(27, "UVR_2/", 9, "VR2")
    28:
      ayuda("VR1")
      boton(28, "UVR_1/", 8, "VR1")
    otherwise:
      set the visible of sprite 47 to 0
  end case
end